home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / TemaCD / RCEdit / RCEdit.CAB / Scrolling Text - Form.js < prev    next >
Text File  |  1996-09-30  |  504b  |  24 lines
  1. // Ticker message in a form box
  2.  
  3. var timerID = null;
  4. var timerRunning = false;
  5. var id,pause=0,position=0;
  6.  
  7.     function ticker() {
  8.     var i,k,msg=" THIS IS WHERE YOUR MESSAGE GOES  ";
  9.     k=(75/msg.length)+1;
  10.     for(i=0;i<=k;i++) msg+=" "+msg;
  11.     document.scroll_box.ticker.value=msg.substring(position,position+75);
  12.     if(position++==38) position=0;
  13.     id=setTimeout("ticker()",1000/10); }
  14.  
  15.     function action() {
  16.     if(!pause) {
  17.         clearTimeout(id);
  18.         pause=1; }
  19.  
  20.     else {
  21.         ticker();
  22.         pause=0; }
  23.     }
  24.